groupdata<-read.csv("C:/Users/clacdmyers/Dropbox/Current_Projects/Dissertation Article One/Data Analysis/20150720_Diss1_Lab_Group_Replication.csv",na.strings="-1")

length(groupdata$Dec2[which(groupdata$condMinMajAll==0)])
sum(groupdata$Dec2[which(groupdata$condMinMajAll==0)])

length(groupdata$Dec2[which(groupdata$condMinMajAll==1)])
sum(groupdata$Dec2[which(groupdata$condMinMajAll==1)])

length(groupdata$Dec2[which(groupdata$condMinMajAll==2)])
sum(groupdata$Dec2[which(groupdata$condMinMajAll==2)])

prop.test(c(27,39),c(43,45),alternative="less")
prop.test(c(27,18),c(43,22),alternative="less")